Public Class RegUtil
    Public Shared Sub SetStartup(appName, path)
        Dim rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
        Try
            rk.OpenSubKey("Software", True).OpenSubKey("Microsoft", True).OpenSubKey("Windows", True).OpenSubKey("CurrentVersion", True).OpenSubKey("Run", True).SetValue(appName, path, Microsoft.Win32.RegistryValueKind.String)
        Catch ex As Exception

        End Try
    End Sub
End Class
